﻿Public Class maseducation
    Private maseducationID = Nothing
    Private maseducationDescription = Nothing
    Private maseducationStatus = Nothing
    Private selectMaseducation = "SELECT `education` as 'รหัสการศึกษา', `educationdesc` as 'ระดับการศึกษา', `status` as 'สถานะการเปิดใช้งาน' FROM maseducation"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property maseducationID_ As Integer
        Get
            Return maseducationID
        End Get
        Set(value As Integer)
            maseducationID = value
        End Set
    End Property

    Property maseducationDescription_ As String
        Get
            Return maseducationDescription
        End Get
        Set(value As String)
            maseducationDescription = value
        End Set
    End Property

    Property maseducationStatus_ As Boolean
        Get
            Return maseducationStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                maseducationStatus = 1
            Else
                maseducationStatus = 0
            End If
        End Set
    End Property

    Property selectMaseducation_ As String
        Get
            Return selectMaseducation
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMaseducationData()
        If maseducationDescription <> "" Then
            If TypeOf maseducationDescription Is String Then
                If connect.GetTable("SELECT educationdesc FROM maseducation WHERE educationdesc = '" & maseducationDescription & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลระดับการศึกษานี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim educationID As Integer

                        educationID = connect.ExecuteScalar("INSERT INTO maseducation (educationdesc, status) VALUES ('" & maseducationDescription & "', '" & maseducationStatus & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASEDUCATION (EDUCATION, EDUCATIONDESC, STATUS) VALUES ('" & educationID & "', '" & maseducationDescription & "', '" & maseducationStatus & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลวุฒิการศึกษาเรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีเลขรหัสวุฒิการศึกษานี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMaseducationData()
        If maseducationID > 0 And maseducationDescription <> "" Then
            Dim connect As CONDB = CONDB.NewConnection()
            connect = CONDB.NewConnection()

            If TypeOf maseducationDescription Is String Then
                Try
                    connect.ExecuteNonQuery("UPDATE maseducation SET educationdesc = '" & maseducationDescription & "', status = '" & maseducationStatus & "' WHERE education = '" & maseducationID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASEDUCATION SET EDUCATIONDESC = '" & maseducationDescription & "', STATUS = '" & maseducationStatus & "' WHERE EDUCATION = '" & maseducationID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลวุฒิการศึกษาเรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัสวุฒิการศึกษานี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try

                connect.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub
End Class
